home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 May & June / Amiga-CD 1997 #5-6.iso / demos&programme / makecd_2.1 / registerscript < prev    next >
AmigaDOS Script File  |  1997-02-07  |  4KB  |  137 lines
  1. .KEY language/A
  2. .BRA {
  3. .KET }
  4.  
  5. ; $Id: registerscript 1.2 1997/02/07 18:29:11 angela Exp $
  6.  
  7. SET makecdlang {language}
  8.  
  9. ; *** This is the filename under which the registration form is saved
  10. SET makecdregfilename "Registerform"
  11. SET makecdnoregform "Sorry, could not find registration form for MakeCD."
  12. SET makecdregreq "Registration Request"
  13. SET makecdshallprint "Do you want the registration form being printed now?"
  14. SET makecdshalldelete "Do you want the registration form in T: being deleted now?"
  15. SET makecdansok "OK"
  16. SET makecdansyes "Yes"
  17. SET makecdansno "No"
  18.  
  19. IF $makecdlang EQ "deutsch"
  20.   SET makecdregfilename "Registrierformular"
  21.   SET makecdnoregform "Leider konnte kein Registrierformular für MakeCD gefunden werden."
  22.   SET makecdregreq "Registrations-Dialogfenster"
  23.   SET makecdshallprint "Soll das Registrierformular nun gedruckt werden?"
  24.   SET makecdshalldelete "Soll das Registrierformular nun aus T: gelöscht werden?"
  25.   SET makecdansok "OK"
  26.   SET makecdansyes "Ja"
  27.   SET makecdansno "Nein"
  28. ENDIF
  29.  
  30. IF $makecdlang EQ "français"
  31.   SET makecdregfilename "FicheD'Enregistrement"
  32.   SET makecdnoregform "Désolé, impossible de trouver le formulaire d'enregistrement pour MakeCD."
  33.   SET makecdregreq "Requête d'enregistrement"
  34.   SET makecdshallprint "Voulez-vous que la fiche d'enregistrement soit imprimée maintenant ?"
  35.   SET makecdshalldelete "Voulez-vous que la fiche d'enregistrement dans T: soit effacée maintenant ?"
  36.   SET makecdansok "OK"
  37.   SET makecdansyes "Oui"
  38.   SET makecdansno "Non"
  39. ENDIF
  40.  
  41. IF $makecdlang EQ "italiano"
  42.   SET makecdregfilename "Moduloregistrazione"
  43.   SET makecdnoregform "Spiacente, non trovo il modulo di registrazione per MakeCD."
  44.   SET makecdregreq "Registrazione"
  45.   SET makecdshallprint "Volete stampare il modulo di registrazione adesso?"
  46.   SET makecdshalldelete "Volete cheil modulo di registrazione venga cancellato da T: adesso?"
  47.   SET makecdansok "OK"
  48.   SET makecdansyes "Si"
  49.   SET makecdansno "No"
  50. ENDIF
  51.  
  52. IF $makecdlang EQ "nederlands"
  53.   SET makecdregfilename "Registratieformulier"
  54.   SET makecdnoregform "Sorry, kon registratieformulier niet vinden voor MakeCD"
  55.   SET makecdregreq "Verzoek tot registratie"
  56.   SET makecdshallprint "Zal ik het registratieformulier nu printen?"
  57.   SET makecdshalldelete "Zal ik het registratieformulier in T: nu wissen?"
  58.   SET makecdansok "Ok"
  59.   SET makecdansyes "Ja"
  60.   SET makecdansno "Nee"
  61. ENDIF
  62.  
  63. IF $makecdlang EQ "norsk"
  64.   SET makecdregfilename "Registrerings-skjema"
  65.   SET makecdnoregform "Beklager, kunne ikke finne registrerings-skjemaet for MakeCD."
  66.   SET makecdregreq "Registrerings-forespørsel"
  67.   SET makecdshallprint "Vil du skrive ut registrerings-skjemaet nå?"
  68.   SET makecdshalldelete "Vil du slette registrerings-skjemaet som ligger i T:?"
  69.   SET makecdansok "OK"
  70.   SET makecdansyes "Ja"
  71.   SET makecdansno "Nei"
  72. ENDIF
  73.  
  74. IF $makecdlang EQ "svenska"
  75.   SET makecdregfilename "Registreringsformulär"
  76.   SET makecdnoregform "Hittar inte registreringsformuläret för MakeCD."
  77.   SET makecdregreq "Registreringsförfrågan"
  78.   SET makecdshallprint "Vill du skriva ut registreringsformuläret nu?"
  79.   SET makecdshalldelete "Vill du radera registreringsformuläret i T: nu?"
  80.   SET makecdansok "Okej"
  81.   SET makecdansyes "Ja"
  82.   SET makecdansno "Nej"
  83. ENDIF
  84.  
  85. IF NOT EXISTS doc/$makecdlang/$makecdregfilename
  86.   SET makecdlang english
  87.   SET makecdregfilename "Registerform"
  88. ENDIF
  89.  
  90. IF NOT EXISTS doc/$makecdlang/$makecdregfilename
  91.   SET makecdlang deutsch
  92.   SET makecdregfilename "Registrierformular"
  93. ENDIF
  94.  
  95. IF EXISTS doc/$makecdlang/$makecdregfilename
  96.   Copy doc/$makecdlang/$makecdregfilename T:Registerform
  97.   Protect T:Registerform rwd
  98.   IF EXISTS ENV:EDITOR
  99.     $EDITOR T:Registerform
  100.   ELSE
  101.     Ed T:Registerform
  102.   ENDIF
  103. ELSE
  104.   IF EXISTS C:RequestChoice
  105.     RequestChoice >NIL: "$makecdregreq" "$makecdnoregform" "$makecdansok"
  106.   ELSE
  107.     Echo >CON:0/0/640/100/Error "$makecdnoregform"
  108.   ENDIF
  109.   SKIP unsetvars
  110. ENDIF
  111.  
  112. IF EXISTS C:RequestChoice
  113.   RequestChoice >ENV:makecdANSWER "$makecdregreq" "$makecdshallprint" "$makecdansyes" "$makecdansno"
  114.   IF $makecdANSWER EQ 1
  115.     Type T:Registerform TO PRT:
  116.   ENDIF
  117.   RequestChoice >ENV:makecdANSWER "$makecdregreq" "$makecdshalldelete" "$makecdansyes" "$makecdansno"
  118.   IF $makecdANSWER EQ 1
  119.     Delete QUIET T:Registerform
  120.   ENDIF
  121.   Delete QUIET ENV:makecdANSWER
  122. ENDIF
  123.  
  124. LAB unsetvars
  125.  
  126. UNSET makecdlang
  127. UNSET makecdregfilename
  128. UNSET makecdnoregform
  129. UNSET makecdregreq
  130. UNSET makecdshallprint
  131. UNSET makecdshalldelete
  132. UNSET makecdansok
  133. UNSET makecdansyes
  134. UNSET makecdansno
  135.  
  136. LAB end
  137.